home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / cmln1085.arc / P3.PAS < prev    next >
Pascal/Delphi Source File  |  1986-02-27  |  256b  |  13 lines
  1. program p3;  {check workstation code}
  2.  
  3. var   i : integer;
  4.  
  5. {$iB:GSXWORK.INC}
  6.  
  7. begin
  8.    write('Enter workstation number > ');  readln(i); writeln;
  9.    openstation(i);
  10.    clearstation;
  11.    closestation
  12. end.
  13.